home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / bbs / wwbbs26.lha / WWBBSDoors / cybmods.lha / wallwriter.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1993-12-18  |  1.5 KB  |  75 lines
  1. /* Cyberlink Wallwriter v1.0 By Instigist (c)1994 */
  2. /*          Snake Pit BBS (310)863-3754           */
  3. options results
  4. print " "
  5. prompt 1 'NOYES' 'Would you like to read the Wall? (y/N) '
  6. ans = result
  7. do i = 1 to 100
  8. if ans = '###PANIC' then call death 
  9. if ans = 'n' | ans = 'N' then call death
  10. call readwall
  11. BBSIDENTIFY USER
  12. temp = result
  13. parse var temp '"'id'" "'ans'" "'ans
  14. print " "
  15. prompt 1 'NOYES' 'Would you like to deface the Wall? (y/N) '
  16. ans = result
  17. do i = 1 to 100
  18. if ans = '###PANIC' then call death
  19. if ans = 'y' | ans = 'Y' then call writewall
  20.  
  21. death:
  22. shutdown
  23. exit
  24.  
  25. syntax:
  26. print "ERROR! Please Inform Sysop!"
  27. shutdown
  28. exit
  29.  
  30. readwall:
  31. cls
  32. i = 0
  33. print ""
  34. print "                     W A L L   W R I T E R ! ! !"
  35. print " "
  36. print "                    Snakes Pit BBS (310)863-3754!"
  37. print " "
  38. open(file1,'doors:graffiti','R')
  39. do until eof(file1)
  40. i = i + 1
  41. if i = 11 then call pauseit
  42. person = readln(file1)
  43. message = readln(file1)
  44. print "--------------------------------------------------------------------------"
  45. print ""person": "message
  46. end
  47. itsdone:
  48. close(file1)
  49. return
  50.  
  51. pauseit:
  52. i = 0
  53. prompt 1 'YESNO' 'More (Y/n)? '
  54. ans = result
  55. if ans = 'n' | ans = 'N' then call itsdone
  56. return
  57.  
  58. writewall:
  59. print " "
  60. print "Enter a 1 line Notice (65 chars max)"
  61. prompt 65 'NORMAL' ':'
  62. ans = result
  63. do i = 1 to 100
  64. if ans = '###PANIC' then call death
  65. if ans = '' then call death
  66. if ans = ' ' then call death
  67. open(file1,'doors:graffiti','A')
  68. writeln(file1,id)
  69. writeln(file1,ans)
  70. close(file1)
  71. print " "
  72. print "Message sprayed..."
  73. return
  74.  
  75.